Namespace CapaDeNegocio
    Public Class PlanProtocolo
        Private strIdProtocolo As String
        Private strCodigo As String
        Private strObjetivo As String
        Private strPatologia As String
        Private datFechaAprobacion As Date
        Private datFechaInicio As Date
        Private datFechaElevacionInformes As Date
        Private intCantidadWeeks As Integer
        Private intNumMaxPacientes As Integer
        Private intNumMinPacientes As Integer
        Private intIntervaloContencion As Integer
        Private intMedicamento As String
        Private intCantPacientes As Integer
        Private objEtapa As CapaDeNegocio.Etapa

        Public Property idProtocolo() As String
            Get
                Return strIdProtocolo
            End Get

            Set(ByVal value As String)
                strIdProtocolo = value
            End Set
        End Property

        Public Property codigo() As String
            Get
                Return strCodigo
            End Get

            Set(ByVal value As String)
                strCodigo = value
            End Set
        End Property

        Public Property objetivo() As String
            Get
                Return strObjetivo
            End Get

            Set(ByVal value As String)
                strObjetivo = value
            End Set
        End Property

        Public Property patologia() As String
            Get
                Return strPatologia
            End Get

            Set(ByVal value As String)
                strPatologia = value
            End Set
        End Property

        Public Property fechaAprobacion() As Date
            Get
                Return datFechaAprobacion
            End Get

            Set(ByVal value As Date)
                datFechaAprobacion = value
            End Set
        End Property

        Public Property FechaInicio() As Date
            Get
                Return datFechaInicio
            End Get
            Set(ByVal value As Date)
                datFechaInicio = value
            End Set
        End Property

        Public Property fechaElevacionInformes() As Date
            Get
                Return datFechaElevacionInformes
            End Get

            Set(ByVal value As Date)
                datFechaElevacionInformes = value
            End Set
        End Property

        Public Property cantidadWeeks() As Integer
            Get
                Return intCantidadWeeks
            End Get

            Set(ByVal value As Integer)
                intCantidadWeeks = value
            End Set
        End Property

        Public Property numMaxPacientes() As Integer
            Get
                Return intNumMaxPacientes
            End Get

            Set(ByVal value As Integer)
                intNumMaxPacientes = value
            End Set
        End Property

        Public Property numMinPacientes() As Integer
            Get
                Return intNumMinPacientes
            End Get
            Set(ByVal value As Integer)
                intNumMinPacientes = value
            End Set
        End Property

        Public Property intervaloContencion() As Integer
            Get
                Return intIntervaloContencion
            End Get
            Set(ByVal value As Integer)
                intIntervaloContencion = value
            End Set
        End Property

        Public Property medicamento() As String
            Get
                Return intMedicamento
            End Get
            Set(ByVal value As String)
                intMedicamento = value
            End Set
        End Property

        Public Property cantidadPaciente() As Integer
            Get
                Return intCantPacientes
            End Get
            Set(ByVal value As Integer)
                intCantPacientes = value
            End Set
        End Property

        Public Property etapa() As CapaDeNegocio.Etapa
            Get
                Return objEtapa
            End Get

            Set(ByVal value As CapaDeNegocio.Etapa)
                objEtapa = value
            End Set
        End Property
    End Class
End Namespace

